home *** CD-ROM | disk | FTP | other *** search
- ; Multiplot Install Script
- ; 2-Apr-94
- ; Copyright 1994
-
-
- (set sourcedisk1 "Multiplot_Install:")
- (set sourcedisk2 "Multiplot_Extras:")
- (set destdir (getassign "SYS"))
-
-
- (set installtype (askchoice
- (prompt "What sort of installation do you want?")
- (choices "Floppy Disk" "Hard Disk")
- (help "Selecting 'Floppy Disk' will copy essential "
- "system files over to your current Workbench. "
- "You will need to boot up on a copy of your "
- "Workbench which has about 150k free. You can "
- "make this much space by deleting the utilities "
- "directory and a few unwanted preferences "
- "programs from a copy of a standard Workbench "
- "disk.\n\n"
- "Selecting 'Hard Disk' will fully install "
- "Multiplot and its support files as well as "
- "installing the system files.\n")
- (default 0)
- )
- )
- ( if (= installtype 1)
- (
- (set destdir (askdir
- (prompt "Where would like Multiplot installed?\n")
- (help "Choose a destination partition or directory "
- "to contain Multiplot XLN. The install "
- "program will copy the Multiplot file to "
- "it and create a directory containing "
- "Multiplot's support files.")
- (default (getassign "SYS") )
- )
- )
- (copyfiles (source (tackon sourcedisk1 "Multiplot") )
- (pattern "(Multiplot|MPlot_support|multiplot.guide|Multiplot.info|multiplot.guide.info)")
- (dest destdir)
- (prompt "Installing Multiplot program\n")
- )
-
- (set answer1 (askchoice
- (prompt "Do you wish to install ARexx Macros?")
- (choices "Yes - In the default directory" "Yes - In a special directory" "No")
- (help "Selecting 'Yes' will result in Multiplot specific "
- "ARexx scripts and macros being installed. "
- "By default, Multiplot will look for macros in "
- "a directory called Rexx which resides in the "
- "same directory as the Multiplot program.\n"
- "If you select 'No' you will still be able "
- "to access the macros from the installation "
- "disks.\n")
- (default 0)
- )
- )
-
- ( if (= answer1 0)
- (
- (makedir (tackon destdir "Rexx") (infos) )
- (copyfiles
- (source (tackon sourcedisk2 "Rexx/scripts"))
- (pattern "#?")
- (dest (tackon destdir "Rexx"))
- (prompt "Installing ARexx Macros\n")
- )
- )
- )
-
- ( if (= answer1 1)
- (
- (set rexxdir (askdir
- (prompt "Where would like the ARexx macros installed?")
- (help "Choose a destination partition or directory "
- "to contain the macros. The install program "
- "program will copy them there. By default "
- " Multiplot will look for macros in a "
- "directory called Rexx which resides in the "
- "same directory as the Multiplot program.")
- (default (getassign "REXX"))
- )
- )
- (copyfiles
- (source (tackon sourcedisk2 "Rexx/scripts"))
- (pattern "#?")
- (dest rexxdir)
- (prompt "Installing Multiplot Rexx macros\n")
- )
- )
- )
- )
- )
- (set answer2 (askchoice
- (prompt "Do you wish to install the ARexx Maths Library?")
- (choices "Yes" "No")
- (help "Selecting 'Yes' will result in the installer "
- "program copying a library that allows "
- "ARexx scripts to use higher maths functions "
- "to your LIBS:directory.\n"
- "If you select 'No', you will not be able to "
- "run ARexx scripts which require higher maths "
- "functions.")
- (default 0)
- )
- )
- ( if (= answer2 0)
- (
- (copylib (source (tackon sourcedisk2 "Rexx/RexxMathLib/rexxmathlib.library"))
- (dest "libs:")
- (prompt "Installing ARexx Maths Library\n")
- )
- )
- )
- (set answer3 (askchoice
- (prompt "Do you wish to install the PLT: device?")
- (choices "Yes" "No")
- (help "The PLT: device is required for the print "
- "preview feature and Workbench printer "
- "support. Selecting 'yes' will copy the "
- "Plt-handler to the L: directory, the "
- "mountlist to the DEVS: directory and some "
- "support files to a PLTDATA: directory.")
- (default 0)
- )
- )
-
- ( if (= answer3 0)
- (
- (set devdir (askdir (prompt "Where is your usual system DEVS: directory?\n")
- (help @askdir-help)
- (default (getassign "DEVS"))
- )
- )
- (set pltdir (askdir
- (prompt "Where would like the PLTDATA installed?")
- (help "Choose a destination partition or directory "
- "to contain the PLT: support files.The install "
- "program will copy them there.")
- (default destdir)
- )
- )
- (copyfiles (source (tackon sourcedisk2 "Plt") )
- (pattern "(ascii|ascii.fnt|pltfontnames)")
- (dest pltdir)
- (prompt "Installing PLT support files\n")
- )
- (set string1 ("assign PLTDATA: %s" pltdir))
- (startup "MULTIPLOT"
- (prompt ("%s\n%s\n%s\n"
- "The following assign has been created."
- string1
- "Do you want it added to your startup?"))
- (command ("assign pltdata: %s\n" pltdir))
- (help "The PLT: device requires that PLTDATA: be assigned "
- "to the directory which contains the PLT: support "
- "files. If you choose, the installer program will "
- "add this assignment to your startup. Otherwise, "
- "you must add it by hand for the correct running "
- "of the Multiplot features which rely on the PLT "
- "device.")
- )
- (makeassign "PLTDATA" pltdir)
- (copyfiles (source (tackon sourcedisk2 "Plt") )
- (pattern "plt-handler")
- (dest (getassign "L"))
- (prompt "Installing PLT handler\n")
- )
- (set answer4 (askchoice
- (prompt "What Workbench version are you using?")
- (choices "WB2.0" "WB2.1 or greater")
- (help "The mountlist is handled differently under "
- "Workbench 2.1 and subsequent revisions, and "
- "this affects the installation. If in doubt, "
- "select WB2.0")
- (default 0)
- )
- )
- ( if (= answer4 0)
- (
- (run (cat
- "c:copy \""
- (tackon devdir "mountlist")
- "\" \""
- (tackon devdir "mountlist.mp_BK!")
- "\"")
- (prompt "Making backup copy of devs/mountlist" )
- )
- ;only backup once
- (run (cat
- "c:protect \""
- (tackon devdir "mountlist.mp_BK!")
- "\" -d")
- )
- (run (cat
- "c:join \""
- (tackon devdir "mountlist.mp_BK!")
- "\" \""
- (tackon sourcedisk2 "Plt/mountlist.frag")
- "\" to \""
- (tackon devdir "mountlist")
- "\"")
- (prompt "Altering devs/mountlist" )
- )
- )
- )
- ( if (= answer4 1)
- (
- (copyfiles (source (tackon sourcedisk2 "Plt") )
- (pattern "PLT|PLT.info")
- (dest (tackon devdir "dosdrivers/"))
- (prompt "Copying PLT: dos driver\n")
- )
- )
- )
- (message "The PLT: device requires that you have "
- "have selected a printer driver from the "
- "'printer' preferences program in the "
- "'Prefs' directory of your Workbench.\n"
- "The Generic printer driver will result "
- "in PLT crashing.\n"
- "If you have not already installed a "
- "printer driver, please do so now, even "
- "if you do not own a printer." )
-
- )
- )
- (message "Multiplot's help system requires that "
- "you have AmigaGuide installed. If you "
- "are using WB2.0 or WB2.1 and have not "
- "yet installed AmigaGuide, you will "
- "find a program on the Multiplot_Extras "
- "disk to install it for you. " )
-
- ( if (= installtype 1) (set @default-dest destdir) )
- ( if (= installtype 0) (set @default-dest sourcedisk1) )
-
-